home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / f / f.bat < prev    next >
DOS Batch File  |  1993-01-28  |  6KB  |  419 lines
  1. @echo off
  2. cls
  3.  
  4. :F1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO F2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :F2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  36.  
  37. IF ERRORLEVEL 24 GOTO QUIT
  38. IF ERRORLEVEL 23 GOTO F1
  39. IF ERRORLEVEL 22 GOTO F3
  40. IF ERRORLEVEL 21 GOTO 42
  41. IF ERRORLEVEL 20 GOTO 41
  42. IF ERRORLEVEL 19 GOTO 40
  43. IF ERRORLEVEL 18 GOTO 39
  44. IF ERRORLEVEL 17 GOTO 38
  45. IF ERRORLEVEL 16 GOTO 37
  46. IF ERRORLEVEL 15 GOTO 36
  47. IF ERRORLEVEL 14 GOTO 35
  48. IF ERRORLEVEL 13 GOTO 34
  49. IF ERRORLEVEL 12 GOTO 33
  50. IF ERRORLEVEL 11 GOTO 32
  51. IF ERRORLEVEL 10 GOTO 31
  52. IF ERRORLEVEL 9 GOTO 30
  53. IF ERRORLEVEL 8 GOTO 29
  54. IF ERRORLEVEL 7 GOTO 28
  55. IF ERRORLEVEL 6 GOTO 27
  56. IF ERRORLEVEL 5 GOTO 26
  57. IF ERRORLEVEL 4 GOTO 25
  58. IF ERRORLEVEL 3 GOTO 24
  59. IF ERRORLEVEL 2 GOTO 23
  60. IF ERRORLEVEL 1 GOTO 22
  61.  
  62.  
  63. :F3
  64. TYPE 3.ANS
  65. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  66.  
  67. IF ERRORLEVEL 24 GOTO QUIT
  68. IF ERRORLEVEL 23 GOTO F2
  69. IF ERRORLEVEL 22 GOTO F4
  70. IF ERRORLEVEL 21 GOTO 63
  71. IF ERRORLEVEL 20 GOTO 62
  72. IF ERRORLEVEL 19 GOTO 61
  73. IF ERRORLEVEL 18 GOTO 60
  74. IF ERRORLEVEL 17 GOTO 59
  75. IF ERRORLEVEL 16 GOTO 58
  76. IF ERRORLEVEL 15 GOTO 57
  77. IF ERRORLEVEL 14 GOTO 56
  78. IF ERRORLEVEL 13 GOTO 55
  79. IF ERRORLEVEL 12 GOTO 54
  80. IF ERRORLEVEL 11 GOTO 53
  81. IF ERRORLEVEL 10 GOTO 52
  82. IF ERRORLEVEL 9 GOTO 51
  83. IF ERRORLEVEL 8 GOTO 50
  84. IF ERRORLEVEL 7 GOTO 49
  85. IF ERRORLEVEL 6 GOTO 48
  86. IF ERRORLEVEL 5 GOTO 47
  87. IF ERRORLEVEL 4 GOTO 46
  88. IF ERRORLEVEL 3 GOTO 45
  89. IF ERRORLEVEL 2 GOTO 44
  90. IF ERRORLEVEL 1 GOTO 43
  91.  
  92.  
  93.  
  94. :F4
  95. TYPE 4.ANS
  96. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  97.  
  98. IF ERRORLEVEL 24 GOTO QUIT
  99. IF ERRORLEVEL 23 GOTO F3
  100. IF ERRORLEVEL 22 GOTO F5
  101. IF ERRORLEVEL 21 GOTO 84
  102. IF ERRORLEVEL 20 GOTO 83
  103. IF ERRORLEVEL 19 GOTO 82
  104. IF ERRORLEVEL 18 GOTO 81
  105. IF ERRORLEVEL 17 GOTO 80
  106. IF ERRORLEVEL 16 GOTO 79
  107. IF ERRORLEVEL 15 GOTO 78
  108. IF ERRORLEVEL 14 GOTO 77
  109. IF ERRORLEVEL 13 GOTO 76
  110. IF ERRORLEVEL 12 GOTO 75
  111. IF ERRORLEVEL 11 GOTO 74
  112. IF ERRORLEVEL 10 GOTO 73
  113. IF ERRORLEVEL 9 GOTO 72
  114. IF ERRORLEVEL 8 GOTO 71
  115. IF ERRORLEVEL 7 GOTO 70
  116. IF ERRORLEVEL 6 GOTO 69
  117. IF ERRORLEVEL 5 GOTO 68
  118. IF ERRORLEVEL 4 GOTO 67
  119. IF ERRORLEVEL 3 GOTO 66
  120. IF ERRORLEVEL 2 GOTO 65
  121. IF ERRORLEVEL 1 GOTO 64
  122.  
  123. :F5
  124. TYPE 5.ANS
  125. ASK /FE "" ABCDEF23
  126.  
  127. IF ERRORLEVEL 8 GOTO QUIT
  128. IF ERRORLEVEL 7 GOTO F4
  129. IF ERRORLEVEL 6 GOTO 90
  130. IF ERRORLEVEL 5 GOTO 89
  131. IF ERRORLEVEL 4 GOTO 88
  132. IF ERRORLEVEL 3 GOTO 87
  133. IF ERRORLEVEL 2 GOTO 86
  134. IF ERRORLEVEL 1 GOTO 85
  135.  
  136. :1
  137. VPIC /A F1007FL
  138. GOTO F1
  139. :2
  140. VPIC /A F1014FL
  141. GOTO F1
  142. :3
  143. VPIC /A F1060_1
  144. GOTO F1
  145. :4
  146. VPIC /A F1391_2
  147. GOTO F1
  148. :5
  149. VPIC /A F1391_3
  150. GOTO F1
  151. :6
  152. VPIC /A F1391_4
  153. GOTO F1
  154. :7
  155. VPIC /A F1405_1
  156. GOTO F1
  157. :8
  158. VPIC /A F1405_2
  159. GOTO F1
  160. :9
  161. VPIC /A F1408_1
  162. GOTO F1
  163. :10
  164. VPIC /A F1408_2
  165. GOTO F1
  166. :11
  167. VPIC /A F1410_1
  168. GOTO F1
  169. :12
  170. VPIC /A F1410_2
  171. GOTO F1
  172. :13
  173. VPIC /A FAMILY_3
  174. GOTO F1
  175. :14
  176. VPIC /A FAMILY_7
  177. GOTO F1
  178. :15
  179. VPIC /A FARMER
  180. GOTO F1
  181. :16
  182. VPIC /A FATFUCK
  183. GOTO F1
  184. :17
  185. VPIC /A FATFUCK2
  186. GOTO F1
  187. :18
  188. VPIC /A FATFUCK3
  189. GOTO F1
  190. :19
  191. VPIC /A FATFUCK7
  192. GOTO F1
  193. :20
  194. VPIC /A FAWNA
  195. GOTO F1
  196. :21
  197. VPIC /A FD000001
  198. GOTO F1
  199. :22
  200. VPIC /A FDGL0004
  201. GOTO F2
  202. :23
  203. VPIC /A FDGL0005
  204. GOTO F2
  205. :24
  206. VPIC /A FDGL0006
  207. GOTO F2
  208. :25
  209. VPIC /A FDGL0008
  210. GOTO F2
  211. :26
  212. VPIC /A FDGL0016
  213. GOTO F2
  214. :27
  215. VPIC /A FDGL0021
  216. GOTO F2
  217. :28
  218. VPIC /A FDGL0022
  219. GOTO F2
  220. :29
  221. VPIC /A FDGL0038
  222. GOTO F2
  223. :30
  224. VPIC /A FDGL0039
  225. GOTO F2
  226. :31
  227. VPIC /A FDGL0067
  228. GOTO F2
  229. :32
  230. VPIC /A FDGL0070
  231. GOTO F2
  232. :33
  233. VPIC /A FDGL0072
  234. GOTO F2
  235. :34
  236. VPIC /A FDGL0073
  237. GOTO F2
  238. :35
  239. VPIC /A FDGL0077
  240. GOTO F2
  241. :36
  242. VPIC /A FDGL0079
  243. GOTO F2
  244. :37
  245. VPIC /A FDGL0080
  246. GOTO F2
  247. :38
  248. VPIC /A FDGL0085
  249. GOTO F2
  250. :39
  251. VPIC /A FDGL0090
  252. GOTO F2
  253. :40
  254. VPIC /A FDGL0091
  255. GOTO F2
  256. :41
  257. VPIC /A FDGL0093
  258. GOTO F2
  259. :42
  260. VPIC /A FDGL0095
  261. GOTO F2
  262. :43
  263. VPIC /A FDGL0096
  264. GOTO F3
  265. :44
  266. VPIC /A FDGL0097
  267. GOTO F3
  268. :45
  269. VPIC /A FDGL0098
  270. GOTO F3
  271. :46
  272. VPIC /A FDGL0118
  273. GOTO F3
  274. :47
  275. VPIC /A FDGL0127
  276. GOTO F3
  277. :48
  278. VPIC /A FDGL0128
  279. GOTO F3
  280. :49
  281. VPIC /A FDGL0141
  282. GOTO F3
  283. :50
  284. VPIC /A FDGL0144
  285. GOTO F3
  286. :51
  287. VPIC /A FDOR001
  288. GOTO F3
  289. :52
  290. VPIC /A FDOR007
  291. GOTO F3
  292. :53
  293. VPIC /A FEATHER
  294. GOTO F3
  295. :54
  296. VPIC /A FEMALE
  297. GOTO F3
  298. :55
  299. VPIC /A FEMBLI
  300. GOTO F3
  301. :56
  302. VPIC /A FEMS02
  303. GOTO F3
  304. :57
  305. VPIC /A FEMS06
  306. GOTO F3
  307. :58
  308. VPIC /A FFRV0148
  309. GOTO F3
  310. :59
  311. VPIC /A FIFT0002
  312. GOTO F3
  313. :60
  314. VPIC /A FIFT0003
  315. GOTO F3
  316. :61
  317. VPIC /A FIFT0004
  318. GOTO F3
  319. :62
  320. VPIC /A FINISH1
  321. GOTO F3
  322. :63
  323. VPIC /A FIRM-BOD
  324. GOTO F3
  325. :64
  326. VPIC /A FIST8
  327. GOTO F4
  328. :65
  329. VPIC /A FISTFUL1
  330. GOTO F4
  331. :66
  332. VPIC /A FISTFUL2
  333. GOTO F4
  334. :67
  335. VPIC /A FISTPUS
  336. GOTO F4
  337. :68
  338. VPIC /A FL28SVGA
  339. GOTO F4
  340. :69
  341. VPIC /A FLEXABLE
  342. GOTO F4
  343. :70
  344. VPIC /A FLOAT1
  345. GOTO F4
  346. :71
  347. VPIC /A FLOATEM
  348. GOTO F4
  349. :72
  350. VPIC /A FMAID001
  351. GOTO F4
  352. :73
  353. VPIC /A FMSEX047
  354. GOTO F4
  355. :74
  356. VPIC /A FORKED
  357. GOTO F4
  358. :75
  359. VPIC /A FOSTER1
  360. GOTO F4
  361. :76
  362. VPIC /A FOSTER3
  363. GOTO F4
  364. :77
  365. VPIC /A FOSTER4
  366. GOTO F4
  367. :78
  368. VPIC /A FOX_201
  369. GOTO F4
  370. :79
  371. VPIC /A FQ_007
  372. GOTO F4
  373. :80
  374. VPIC /A FRAN01
  375. GOTO F4
  376. :81
  377. VPIC /A FRATBABE
  378. GOTO F4
  379. :82
  380. VPIC /A FREEZING
  381. GOTO F4
  382. :83
  383. VPIC /A FRENCHI2
  384. GOTO F4
  385. :84
  386. VPIC /A FRENCHI3
  387. GOTO F4
  388. :85
  389. VPIC /A FRENCHI4
  390. GOTO F5
  391. :86
  392. VPIC /A FRENCHI5
  393. GOTO F5
  394. :87
  395. VPIC /A FUCKME70
  396. GOTO F5
  397. :88
  398. VPIC /A FUNTITS
  399. GOTO F5
  400. :89
  401. VPIC /A FWF10
  402. GOTO F5
  403. :90
  404. VPIC /A FZ001
  405. GOTO F5
  406.  
  407.  
  408. :SELECTION
  409. CD\SETUP
  410. FSTORM3
  411.  
  412. :QUIT
  413. CD\SETUP
  414. FSTORM3
  415.  
  416.  
  417.  
  418.  
  419.